home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk205 / cross / source / src.lha / Cross / Source / CPCSleep.mod < prev    next >
Encoding:
Modula Implementation  |  1992-02-10  |  1.7 KB  |  93 lines
  1. IMPLEMENTATION MODULE CPCSleep;
  2.  
  3.  
  4.  
  5. IMPORT CPCGlobal;
  6. IMPORT Mouse;
  7. IMPORT SYSTEM;
  8.  
  9.  
  10.  
  11. VAR
  12.  pointeractive: BOOLEAN;
  13.  ptrdat: SYSTEM.ADDRESS;
  14.  
  15.  
  16.  
  17. (*$ EntryExitCode:=FALSE *)
  18. PROCEDURE SleepPointerData;
  19.  BEGIN
  20.   SYSTEM.ASSEMBLE(
  21.    DC.W %1111111111111111
  22.    DC.W %1111111111111111
  23.    DC.W %1111111111111111
  24.    DC.W %0111111111111110
  25.    DC.W %0010000000000100
  26.    DC.W %0001000000001000
  27.    DC.W %0000100000010000
  28.    DC.W %0000010000100000
  29.    DC.W %0000001001000000
  30.    DC.W %0000000110000000
  31.    DC.W %0000000110000000
  32.    DC.W %0000000110000000
  33.    DC.W %0000001111000000
  34.    DC.W %0000011111100000
  35.    DC.W %0000111111110000
  36.    DC.W %0001111111111000
  37.    DC.W %0011111111111100
  38.    DC.W %0100000000000010
  39.    DC.W %1000000000000001
  40.    DC.W %1000000000000001
  41.    DC.W %1111111111111111
  42.  
  43.    DC.W %1111111111111111
  44.    DC.W %1000000000000001
  45.    DC.W %1000000000000001
  46.    DC.W %0100000000000010
  47.    DC.W %0011111111111100
  48.    DC.W %0001111111111000
  49.    DC.W %0000111111110000
  50.    DC.W %0000011111100000
  51.    DC.W %0000001111000000
  52.    DC.W %0000000110000000
  53.    DC.W %0000000110000000
  54.    DC.W %0000000110000000
  55.    DC.W %0000001001000000
  56.    DC.W %0000010000100000
  57.    DC.W %0000100000010000
  58.    DC.W %0001000000001000
  59.    DC.W %0010000000000100
  60.    DC.W %0111111111111110
  61.    DC.W %1111111111111111
  62.    DC.W %1111111111111111
  63.    DC.W %1111111111111111
  64.   END);
  65.  END SleepPointerData;
  66.  
  67.  
  68.  
  69. PROCEDURE SleepPointer;
  70.  BEGIN
  71.   IF NOT pointeractive THEN
  72.    Mouse.MousePattern(CPCGlobal.window,ptrdat,21,-8,-11);
  73.   END;
  74.   pointeractive:=TRUE;
  75.  END SleepPointer;
  76.  
  77.  
  78.  
  79. PROCEDURE NormalPointer;
  80.  BEGIN
  81.   IF pointeractive THEN
  82.    Mouse.ResetPattern(CPCGlobal.window);
  83.   END;
  84.   pointeractive:=FALSE;
  85.  END NormalPointer;
  86.  
  87.  
  88.  
  89. BEGIN
  90.  pointeractive:=FALSE;
  91.  ptrdat:=SYSTEM.ADR(SleepPointerData);
  92. END CPCSleep.
  93.